
* OPEN STATA OUTPUT FILE LOG *

log using "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Output/APPENDIX H GRAPHS.04-19-2021.smcl", replace

 

   
    **** PROGRAM FILE FOR APPENDIX H GRAPHICS ****
   
   
 

 * OPEN UPDATED "CONFIRMATION DYNAMICS" DATABASE [08-13-2020] *

use "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Data/Confirmation Dynamics.Database.08-13-2020.FINAL.dta", replace



******************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************


**** FIGURE H1.A: CONFIRMATION DURATION [CONFIRMATION DATE - NOMINATION DATE] FOR TIER 1 PAS BUREAUCRATIC LEADERSHIP NOMINEES [SAME SENATE/CONGRESS BIENNIEL SESSION] ****
*
*** EDF for Toplevel2==1 (Tier 1): Kernel Density Plot Overlayed Histogram:  
twoway histogram confdur if confirmobserved==1 & toplevel2==1 & agencyideol!=., fcolor(gs10) || kdensity confdur if confirmobserved==1 & toplevel2==1 & agencyideol!=., lcolor(black) legend(off) xlabel(0(100)500) ylabel(0(.005).025, angle(0)) title("FIGURE H1.A: TIER 1 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(FULL SAMPLE)", size(medsmall))  ytitle("Density", size(medsmall)) xtitle("Total Confirmation Duration for Tier 1 Nominees (Days)", size(medsmall))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH1A.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH1A.eps"
*
*
*
**** FIGURE H1.B: CONFIRMATION DURATION [CONFIRMATION DATE - NOMINATION DATE] FOR TIER 2 PAS BUREAUCRATIC LEADERSHIP NOMINEES [SAME SENATE/CONGRESS BIENNIEL SESSION] ****
*
***EDF for Toplevel2==0 (Tier 2): Kernel Density Plot Overlayed Histogram:  
twoway histogram confdur if confirmobserved==1 & toplevel2==0 & agencyideol!=., fcolor(gs10) || kdensity confdur if confirmobserved==1 & toplevel2==0 & agencyideol!=., lcolor(black) legend(off) xlabel(0(100)500) ylabel(0(.005).025, angle(0)) title("FIGURE H1.B: TIER 2 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(FULL SAMPLE)", size(medsmall)) ytitle("Density", size(medsmall)) xtitle("Total Confirmation Duration for Tier 2 Nominees (Days)", size(medsmall))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH1B.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH1B.eps"
*
*
*
**** FIGURE H1.C: CONFIRMATION DURATION [CONFIRMATION DATE - NOMINATION DATE] FOR TIER 1 VERSUS TIER 2 PAS BUREAUCRATIC LEADERSHIP NOMINEES [SAME SENATE/CONGRESS BIENNIEL SESSION] ****
*
* Ensure that Immediate Confirmations Are Included in Risk Set By Adding a Constant of 1 to "confdur2" *
generate confdurplus1 = confdur + 1
*
* Ensure that Only Confirmed Nominees Within a Current Congress are Included in the Risk Set by specifying "cnesoredconfirm==0" *
quietly stset confdur if confirmobserved==1 & agencyideol!=., noshow
*
sts test toplevel2, logrank
*
sts graph, by(toplevel2) plot1opts(lpattern(solid) lcolor(black)) plot2opts(lpattern(dash) lcolor(black)) ylabel(0(.25)1, angle(0) nogrid) xtitle("Confirmation Duration (in Days)", size(medsmall)) title("FIGURE H1.C: K-M Survival Estimates for PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(TIER 1/TIER 2 Full Sample)", size(medsmall)) legend(label (1 "Tier 2 Nominees") label(2 "Tier 1 Nominees"))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH1C.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH1C.eps"






*FIGURE H.2A
*EDF for Toplevel2==1 (Tier 1) & PAEPA==1: Kernel Density Plot Overlayed Histogram:  
twoway histogram confdur if confirmobserved==1 & paepa==1 & toplevel2==1 & agencyideol!=., fcolor(gs10) || kdensity confdur if confirmobserved==1 & paepa==1 & toplevel2==1 & agencyideol!=., lcolor(black) legend(off) xlabel(0(100)300) ylabel(0(.005).025, angle(0)) title("FIGURE H2.A: TIER 1 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(PREVIOUS APPOINTED EXPERIENCE)", size(medsmall)) ytitle("Density", size(medsmall)) xtitle("Total Confirmation Duration for Tier 1 Nominees (Days)", size(medsmall))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH2A.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH2A.eps"

*
*FIGURE H.2B
*EDF for Toplevel2==1 (Tier 1) & PAEPA==0: Kernel Density Plot Overlayed Histogram:  
twoway histogram confdur if confirmobserved==1 & paepa==0 & toplevel2==1 & agencyideol!=., fcolor(gs10) || kdensity confdur if confirmobserved==1 & paepa==0 & toplevel2==1 & agencyideol!=., lcolor(black) legend(off) xlabel(0(100)300) ylabel(0(.005).025, angle(0)) title("FIGURE H2.B: TIER 1 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(NO PREVIOUS APPOINTED EXPERIENCE)", size(medsmall)) ytitle("Density", size(medsmall)) xtitle("Total Confirmation Duration for Tier 1 Nominees (Days)", size(medsmall))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH2B.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH2B.eps"
*
*FIGURE H.2C
*Kaplan-Meier Survival Function Curves By PAEPA for Toplevel2==1 [TIER 1] (And Log-Rank Test for Equality of Survivor Curves]:

quietly stset confdur if confirmobserved==1 & agencyideol!=. & toplevel2==1, noshow
*
sts test paepa, logrank
*
sts graph, by(paepa) plot1opts(lpattern(solid) lcolor(black)) plot2opts(lpattern(dash) lcolor(black)) ylabel(0(.25)1, angle(0) nogrid) xtitle("Confirmation Duration (in Days)", size(medsmall)) title("FIGURE H2.C: K-M Survival Estimates for TIER 1 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(NO PREVIOUS/Previous APPOINTED EXPERIENCE)", size(medsmall)) legend(label (1 "No Previous Appointed Experience") label(2 "Previous Appointed Experience")) legend(size(small))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH2C.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH2C.eps"



*FIGURE H.2D
*EDF for Toplevel2==0 (Tier 2) & PAEPA==1: Kernel Density Plot Overlayed Histogram:  
twoway histogram confdur if confirmobserved==1 & paepa==1 & toplevel2==0 & agencyideol!=., fcolor(gs10) || kdensity confdur if confirmobserved==1 & paepa==1 & toplevel2==0 & agencyideol!=., lcolor(black) legend(off) xlabel(0(100)500) ylabel(0(.005).015, angle(0)) title("FIGURE H2.D: TIER 2 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(PREVIOUS APPOINTED EXPERIENCE)", size(medsmall)) ytitle("Density", size(medsmall)) xtitle("Total Confirmation Duration for Tier 2 Nominees (Days)", size(medsmall))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH2D.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH2D.eps"
*
*FIGURE H.2E
*EDF for Toplevel2==0 (Tier 2) & PAEPA==0: Kernel Density Plot Overlayed Histogram:  
twoway histogram confdur if confirmobserved==1 & paepa==0 & toplevel2==0 & agencyideol!=., fcolor(gs10) || kdensity confdur if confirmobserved==1 & paepa==0 & toplevel2==0 & agencyideol!=., lcolor(black) legend(off) xlabel(0(100)500) ylabel(0(.005).015, angle(0)) title("FIGURE H2.E: TIER 2 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(NO PREVIOUS APPOINTED EXPERIENCE)", size(medsmall)) ytitle("Density", size(medsmall)) xtitle("Total Confirmation Duration for Tier 2 Nominees (Days)", size(medsmall))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH2E.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH2E.eps"
*
*FIGURE H.2F
*Kaplan-Meier Survival Function Curves By PAEPA for Toplevel2==0 [TIER 2] (And Log-Rank Test for Equality of Survivor Curves]:

quietly stset confdur if confirmobserved==1 & agencyideol!=. & toplevel2==0, noshow
*
sts test paepa, logrank
*
sts graph, by(paepa) plot1opts(lpattern(solid) lcolor(black)) plot2opts(lpattern(dash) lcolor(black)) ylabel(0(.25)1, angle(0) nogrid) xtitle("Confirmation Duration (in Days)", size(medsmall)) title("FIGURE H2.F: K-M Survival Estimates for TIER 2 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(NO PREVIOUS/PREVIOUS APPOINTED EXPERIENCE)", size(medsmall))  legend(label (1 "No Previous Appointed Experience") label(2 "Previous Appointed Experience")) legend(size(small))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH2F.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH2F.eps"





*FIGURE H.3A
*EDF for Toplevel2==1 (Tier 1) & PAEPASA==1: Kernel Density Plot Overlayed Histogram:  
twoway histogram confdur if confirmobserved==1 & paepa==1 & toplevel2==1 & agencyideol!=., fcolor(gs10) || kdensity confdur if confirmobserved==1 & paepa==1 & toplevel2==1 & agencyideol!=., lcolor(black) legend(off) xlabel(0(100)300) ylabel(0(.005).025, angle(0)) title("FIGURE H3.A: TIER 1 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(PREVIOUS APPOINTED EXPERIENCE: SAME AGENCY)", size(medsmall)) ytitle("Density", size(medsmall)) xtitle("Total Confirmation Duration for Tier 1 Nominees (Days)", size(medsmall))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH3A.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH3A.eps"
*
*FIGURE H.3B
*EDF for Toplevel2==1 (Tier 1) & PAEPASA==0: Kernel Density Plot Overlayed Histogram:  
twoway histogram confdur if confirmobserved==1 & paepa==0 & toplevel2==1 & agencyideol!=., fcolor(gs10) || kdensity confdur if confirmobserved==1 & paepa==0 & toplevel2==1 & agencyideol!=., lcolor(black) legend(off) xlabel(0(100)300) ylabel(0(.005).025, angle(0)) title("FIGURE H3.B: TIER 1 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(NO PREVIOUS APPOINTED EXPERIENCE: SAME AGENCY)", size(medsmall)) ytitle("Density", size(medsmall)) xtitle("Total Confirmation Duration for Tier 1 Nominees (Days)", size(medsmall))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH3B.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH3B.eps"
*
*FIGURE H.3C
*Kaplan-Meier Survival Function Curves By PAEPASA for Toplevel2==1 [TIER 1] (And Log-Rank Test for Equality of Survivor Curves]:

quietly stset confdur if confirmobserved==1 & agencyideol!=. & toplevel2==1, noshow
*
sts test paepasa, logrank
*
sts graph, by(paepasa) plot1opts(lpattern(solid) lcolor(black)) plot2opts(lpattern(dash) lcolor(black)) ylabel(0(.25)1, angle(0) nogrid) xtitle("Confirmation Duration (in Days)", size(medsmall)) title("FIGURE H3.C: K-M Survival Estimates for TIER 1 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(NO PREVIOUS/PREVIOUS APPOINTED EXPERIENCE [SAME AGENCY])", size(medsmall)) legend(label (1 "No Previous Appointed Experience") label(2 "Previous Appointed Experience")) legend(size(vsmall))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH3C.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH3C.eps"


*FIGURE H.3D
*EDF for Toplevel2==0 (Tier 2) & PAEPASA==1: Kernel Density Plot Overlayed Histogram:  
twoway histogram confdur if confirmobserved==1 & paepa==1 & toplevel2==0 & agencyideol!=., fcolor(gs10) || kdensity confdur if confirmobserved==1 & paepa==1 & toplevel2==0 & agencyideol!=., lcolor(black) legend(off) xlabel(0(100)500) ylabel(0(.005).015, angle(0)) title("FIGURE H3.D: TIER 2 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(PREVIOUS APPOINTED EXPERIENCE: SAME AGENCY)", size(medsmall)) ytitle("Density", size(medsmall)) xtitle("Total Confirmation Duration for Tier 2 Nominees (Days)", size(medsmall))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH3D.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH3D.eps"
*
*FIGURE H.3E
*EDF for Toplevel2==0 (Tier 2) & PAEPASA==0: Kernel Density Plot Overlayed Histogram:  
twoway histogram confdur if confirmobserved==1 & paepa==0 & toplevel2==0 & agencyideol!=., fcolor(gs10) || kdensity confdur if confirmobserved==1 & paepa==0 & toplevel2==0 & agencyideol!=., lcolor(black) legend(off) xlabel(0(100)500) ylabel(0(.005).015, angle(0)) title("FIGURE H3.E: TIER 2 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(NO PREVIOUS APPOINTED EXPERIENCE: SAME AGENCY)", size(medsmall)) ytitle("Density", size(medsmall)) xtitle("Total Confirmation Duration for Tier 2 Nominees (Days)", size(medsmall))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH3E.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH3E.eps"
*
*FIGURE H.3F
*Kaplan-Meier Survival Function Curves By PAEPASA for Toplevel2==0 [TIER 2] (And Log-Rank Test for Equality of Survivor Curves]:

quietly stset confdur if confirmobserved==1 & agencyideol!=. & toplevel2==0, noshow
*
sts test paepasa, logrank
*
sts graph, by(paepasa) plot1opts(lpattern(solid) lcolor(black)) plot2opts(lpattern(dash) lcolor(black)) ylabel(0(.25)1, angle(0) nogrid) xtitle("Confirmation Duration (in Days)", size(medsmall)) title("FIGURE H3.F: K-M Survival Estimates for TIER 2 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(NO PREVIOUS/PREVIOUS APPOINTED EXPERIENCE [SAME AGENCY])", size(medsmall))  legend(label (1 "No Previous Appointed Experience") label(2 "Previous Appointed Experience")) legend(size(small))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH3F.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH3F.eps"






*FIGURE H.4A
*EDF for Toplevel2==1 (Tier 1) & dc==1: Kernel Density Plot Overlayed Histogram:  
twoway histogram confdur if confirmobserved==1 & dc==1 & toplevel2==1 & agencyideol!=., fcolor(gs10) || kdensity confdur if confirmobserved==1 & dc==1 & toplevel2==1 & agencyideol!=., lcolor(black) legend(off) xlabel(0(100)300) ylabel(0(.005).02, angle(0)) title("FIGURE H4.A: TIER 1 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(D.C. AREA RESIDENCE)", size(medsmall)) ytitle("Density", size(medsmall)) xtitle("Total Confirmation Duration for Tier 1 Nominees (Days)", size(medsmall))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH4A.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH4A.eps"
*
*FIGURE H.4B
*EDF for Toplevel2==1 (Tier 1) & DC==0: Kernel Density Plot Overlayed Histogram:  
twoway histogram confdur if confirmobserved==1 & dc==0 & toplevel2==1 & agencyideol!=., fcolor(gs10) || kdensity confdur if confirmobserved==1 & dc==0 & toplevel2==1 & agencyideol!=., lcolor(black) legend(off) xlabel(0(100)300) ylabel(0(.005).02, angle(0)) title("FIGURE H4.B: TIER 1 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(NON-D.C. AREA RESIDENCE)", size(medsmall)) ytitle("Density", size(medsmall)) xtitle("Total Confirmation Duration for Tier 1 Nominees (Days)", size(medsmall))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH4B.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH4B.eps"
*
*FIGURE H.4C
*Kaplan-Meier Survival Function Curves By DC for Toplevel2==1 [TIER 1] (And Log-Rank Test for Equality of Survivor Curves]:

quietly stset confdur if confirmobserved==1 & agencyideol!=. & toplevel2==1, noshow
*
sts test dc, logrank
*
sts graph, by(dc) plot1opts(lpattern(solid) lcolor(black)) plot2opts(lpattern(dash) lcolor(black)) ylabel(0(.25)1, angle(0) nogrid) xtitle("Confirmation Duration (in Days)", size(medsmall)) title("FIGURE H4.C: K-M Survival Estimates for TIER 1 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(D.C./NON-D.C. AREA RESIDENCE)", size(medsmall))  legend(size(small)) legend(label (1 "Non-D.C. Area Residence") label(2 "D.C. Area Residence")) legend(size(small))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH4C.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH4C.eps"



*FIGURE H.4D
*EDF for Toplevel2==0 (Tier 2) & DC==1: Kernel Density Plot Overlayed Histogram:  
twoway histogram confdur if confirmobserved==1 & dc==1 & toplevel2==0 & agencyideol!=., fcolor(gs10) || kdensity confdur if confirmobserved==1 & dc==1 & toplevel2==0 & agencyideol!=., lcolor(black) legend(off) xlabel(0(100)500) ylabel(0(.005).015, angle(0)) title("FIGURE H4.D: TIER 2 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(D.C. AREA RESIDENCE)", size(medsmall)) ytitle("Density", size(medsmall)) xtitle("Total Confirmation Duration for Tier 2 Nominees (Days)", size(medsmall))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH4D.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH4D.eps"
*
*FIGURE H.4E
*EDF for Toplevel2==0 (Tier 2) & DC==0: Kernel Density Plot Overlayed Histogram:  
twoway histogram confdur if confirmobserved==1 & dc==0 & toplevel2==0 & agencyideol!=., fcolor(gs10) || kdensity confdur if confirmobserved==1 & dc==0 & toplevel2==0 & agencyideol!=., lcolor(black) legend(off) xlabel(0(100)500) ylabel(0(.005).015, angle(0)) title("FIGURE H4.E: TIER 2 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(NON-D.C. AREA RESIDENCE)", size(medsmall)) ytitle("Density", size(medsmall)) xtitle("Total Confirmation Duration for Tier 2 Nominees (Days)", size(medsmall))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH4E.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH4E.eps"
*
*FIGURE H.4F
*Kaplan-Meier Survival Function Curves By DC for Toplevel2==0 [TIER 2] (And Log-Rank Test for Equality of Survivor Curves]:

quietly stset confdur if confirmobserved==1 & agencyideol!=. & toplevel2==0, noshow
*
sts test dc, logrank
*
sts graph, by(dc) plot1opts(lpattern(solid) lcolor(black)) plot2opts(lpattern(dash) lcolor(black)) ylabel(0(.25)1, angle(0) nogrid) xtitle("Confirmation Duration (in Days)", size(medsmall)) title("FIGURE H4.F: K-M Survival Estimates for TIER 2 PAS Confirmed Leadership Nominees", size(medsmall)) subtitle("(D.C./NON-D.C. AREA RESIDENCE)", size(medsmall))  legend(size(small)) legend(label (1 "Non-D.C. Area Residence") label(2 "D.C. Area Residence")) legend(size(small))
*
graph save "Graph" "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/Appendix H/FigureH4F.gph"

graph export "/Users/JAYBYERS/Dropbox/Jason Byers/Co-Authored Projects/Projects with Krause/Krause Projects/Confirmation Dynamics Project/Nominee Characteristics Project/JOPDRMJB/Graphics/EPS/Appendix H/FigureH4F.eps"



log close
